SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TMDOCU_PRRE_I03]    
/*---------------------------------------------------------*/    
/*---Empresa              : OFISIS S.A.                  --*/    
/*---Cliente              : OFISIS S.A.                  --*/    
/*---Sistema              : Tesoreria                    --*/    
/*---M”dulo               : Empresa                      --*/    
/*---Programa             : Aprobaciön tmdocu_prre       --*/    
/*---                       y a la TMDOCU_PROV           --*/    
/*---Script               : ttproc_i.sql                 --*/    
/*---Nombre SP            : SP_TMDOCU_PRRE_I03           --*/    
/*---Desarrollado por     : Carlos Marquez E.            --*/    
/*---Fecha Creaci”n       : 09/08/2004                   --*/    
/*---Base Datos           : Microsoft Sql Server         --*/    
/*---Versi”n              : 8.0                          --*/    
/*---Invoca a SP          :                              --*/    
/*---------------------------------------------------------*/    
/*---------------------------------------------------------*/    
/*---Modificado 1 por     : Carlos Marquez E             --*/    
/*---Fecha Modificaci"n   : 11/09/2004                   --*/    
/*---Detalle Modificaci"n : se adiciono Fecha Recepci½n  --*/    
/*---------------------------------------------------------*/    
/*-------------------------------------------------------*/      
/*---ModIficado 1 por     :Maribel Julca Rodriguez     --*/      
/*---Fecha ModIficaci,n   :22/01/2005                  --*/       
/*---Detalle ModIficaci,n :ingreso de campos CO_USUA_CREA, CO_USUA_MODI --*/      
/*-------------------------------------------------------*/      
/*---------------------------------------------------------*/    
/*---Comentarios                                         --*/    
/*---                                                    --*/    
/*---                                                    --*/    
/*---------------------------------------------------------*/    
/*---------------------------------------------------------*/    
/*---Drop Proc SP_TMDOCU_PRRE_I03                        --*/    
/*---Grant all on SP_TMDOCU_PRRE_I03 to public           --*/     
/*---SP_TMDOCU_PRRE_I03 '01' , 1, 1, '03/01/1999',       --*/    
/*--- '03/31/1999', 'N', 1, 0, 0, NULL , NULL            --*/    
/*---------------------------------------------------------*/    
@ISCO_EMPR          TD_VC_002,      
@ISCO_USUA_MODI          TD_VC_008,    
@ISCO_PROV          TD_VC_020,     
@ISCO_TIPO_DOCU     TD_VC_003,     
@ISNU_DOCU_PROV     TD_VC_020     
    
AS    
    
BEGIN TRAN    
 Insert Into TMDOCU_PROV     
  ( CO_EMPR, CO_PROV, CO_TIPO_DOCU, NU_DOCU_PROV, CO_UNID_CONC, CO_COND_PAGO,     
  FE_EMIS, FE_RECE, FE_VENC, FE_PROG_PAGO, FE_REGI_COMP, FA_TIPO_CAMB, FA_CAMB_EXTR, CO_MONE,     
  IM_BRUT_AFEC, IM_BRUT_INAF, CO_IMP1, PC_IMP1, IM_IMP1, CO_IMP2, PC_IMP2,     
  IM_IMP2, CO_IMP3, PC_IMP3, IM_IMP3, IM_TOTA, IM_PAGA, TI_DOCU_ORIG, NU_DOCU_ORIG,     
  FE_DOCU_ORIG, DE_OBSE, CO_ESTA_DOCU, ST_CONT, ST_REND_COMP, NU_SREN_GAST, NU_CORR_COMP, CO_USUA_CREA, FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI )    
 Select  CO_EMPR, CO_PROV, CO_TIPO_DOCU, NU_DOCU_PROV, CO_UNID_CONC, CO_COND_PAGO,     
  FE_EMIS, FE_CTRL, FE_VENC, FE_PROG_PAGO, FE_REGI_COMP, FA_TIPO_CAMB, 1 FA_CAMB_EXTR, CO_MONE,     
  IM_BRUT_AFEC, IM_BRUT_INAF, CO_IMP1, PC_IMP1, IM_IMP1, CO_IMP2, PC_IMP2,     
  IM_IMP2, CO_IMP3, PC_IMP3, IM_IMP3, IM_TOTA, IM_PAGA, TI_DOCU_ORIG, NU_DOCU_ORIG,     
  FE_DOCU_ORIG, DE_OBSE, 'ACT', 'N', 'N', NULL, NU_CORR_COMP, @ISCO_USUA_MODI, GETDATE(), @ISCO_USUA_MODI, GETDATE()    
 From  TMDOCU_PRRE    
 Where    CO_EMPR = @ISCO_EMPR    
  And CO_PROV = @ISCO_PROV    

  And CO_TIPO_DOCU = @ISCO_TIPO_DOCU    
  And NU_DOCU_PROV = @ISNU_DOCU_PROV    
          And Not Exists ( Select t2.CO_EMPR    
                           From TMDOCU_PROV  t2                           
                          Where    t2.CO_EMPR = TMDOCU_PRRE.CO_EMPR    
                           And t2.CO_PROV = TMDOCU_PRRE.CO_PROV    
                           And t2.CO_TIPO_DOCU = TMDOCU_PRRE.CO_TIPO_DOCU    
                           And t2.NU_DOCU_PROV = TMDOCU_PRRE.NU_DOCU_PROV                        
                              )    
    
 IF (@@ERROR != 0)    
 BEGIN    
  RAISERROR 20001 'ERROR DE INSERCION'    
  ROLLBACK TRAN    
  RETURN    
 END        
     
 Update   TMDOCU_PRRE      
 Set      TI_SITU= 'APR',     
  CO_USUA_MODI = @ISCO_USUA_MODI,     
  FE_USUA_MODI = GETDATE()    
 Where    CO_EMPR = @ISCO_EMPR    
  And CO_PROV = @ISCO_PROV    
  And CO_TIPO_DOCU = @ISCO_TIPO_DOCU    
  And NU_DOCU_PROV = @ISNU_DOCU_PROV    
     
 IF (@@ERROR != 0)   BEGIN    
  RAISERROR 20001 'ERROR DE INSERCION'    
  ROLLBACK TRAN    
  RETURN    
 END         
    
COMMIT TRAN    
    
/*--------------------------- Fin -------------------------------- */


GO
